bitcoin-time <- read.csv(file="bitcoin-time.csv")
names(bitcoin-time) <- c("time")
pdf("bitcoin-time.pdf")
plot(bitcoin-time$time, pch=15, main="Bitcoin Transaction Time", xlab="Transaction", ylab="Time")

anonycoin-time <- read.csv(file="anonycoin-time.csv")
names(anonycoin-time) <- c("time")
pdf("anonycoin-time.pdf")
plot(anonycoin-time$time, pch=15, main="Anonycoin Transaction Time", xlab="Transaction", ylab="Time")

bitcoin-track <- read.csv(file="bitcoin-track.csv")
names(bitcoin-track) <- c("time")
pdf("bitcoin-track.pdf")
plot(bitcoin-track$time, pch=15, main="Bitcoin Transaction Track", xlab="Transaction", ylab="Tracked")

anonycoin-track <- read.csv(file="anonycoin-track.csv")
names(anonycoin-track) <- c("time")
pdf("anonycoin-track.pdf")
plot(anonycoin-track$time, pch=15, main="Anonycoin Transaction Track", xlab="Transaction", ylab="Tracked")
